home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 04 - 1988 / 04.08 Aug 88 / Fortran Stuff / PrGenDefs.inc < prev    next >
Encoding:
Text File  |  1988-06-23  |  2.2 KB  |  69 lines  |  [TEXT/EDIT]
  1. * File: PrGenDefs.inc   Definitions for calls to printer trap PrGeneral
  2. *  1/11/88  Jay Lieske
  3. *
  4. * Information for GetRsl
  5. *     This file contains definitions for calls to PrGeneral with iOpCode=4
  6. *     (called gOpCode here) which is the GetRslData call.
  7. *
  8.  
  9. * the GetRslData record is of length 128 bytes
  10.  
  11.       integer*1   GetRslDataRec(128)
  12.       integer*2   gOpCode
  13.       integer*2   gError
  14.       integer*4   gReserved
  15.       integer*2   iRgType
  16.       integer*2   XRslRg(2)
  17.       integer*2   YRslRg(2)
  18.       integer*2   iRslRecCnt
  19.       integer*2   rgRslRec(2,27)
  20.                               ! defined as ARRAY[1..27] of TRslRec
  21.       equivalence (GetRslDataRec(1), gOpCode)
  22.       equivalence (GetRslDataRec(3), gError)
  23.       equivalence (GetRslDataRec(5), gReserved)
  24.       equivalence (GetRslDataRec(9), iRgType)
  25.       equivalence (GetRslDataRec(11), XRslRg)
  26.       equivalence (GetRslDataRec(15), YRslRg)
  27.       equivalence (GetRslDataRec(19), iRslRecCnt)
  28.       equivalence (GetRslDataRec(21), rgRslRec)
  29.  
  30.       integer*4 pGetRslData
  31. C     parameter (gOpCode = 4)
  32.  
  33. * You must set the value of gOpCode
  34. * in program. Get pointer to GetRslDataRec via: pGetRslData = TOOLBX(PTR,GetRslDataRec )
  35. * and then CALL toolbx(PrGeneral, pGetRslData, xPrGeneral)
  36.  
  37. * end of data for GetRsl
  38.  
  39. * Information for SetRsl
  40. *     This file contains definitions for calls to PrGeneral with iOpCode=5
  41. *     (called pOpCode here) which is the SetRslData call.
  42. *
  43.  
  44. * the SetRslData record is of length 16 bytes
  45.  
  46.       integer*1   SetRslRec(16)
  47.       integer*2   pOpCode
  48.       integer*2   pError
  49.       integer*4   pReserved
  50.       integer*4   hPrint
  51.       integer*2   iXRsl
  52.       integer*2   iYRsl
  53.  
  54.       equivalence (SetRslRec(1), pOpCode)
  55.       equivalence (SetRslRec(3), pError)
  56.       equivalence (SetRslRec(5), pReserved)
  57.       equivalence (SetRslRec(9), hPrint)
  58.       equivalence (SetRslRec(13), iXRsl)
  59.       equivalence (SetRslRec(15), iYRsl)
  60.  
  61.       integer*4 pSetRsl
  62. C     parameter (pOpCode = 5)
  63.  
  64. *  You must set the values of pOpCode = 5 and hPrint = handle to Print Record
  65. * in program. Get pointer to SetRslRec via: pSetRsl = TOOLBX(PTR,SetRslRec)
  66. * and then CALL toolbx(PrGeneral, pSetRsl, xPrGeneral)
  67. * end of data forSetRsl
  68. * end of file PrGenDefs.inc
  69.